gtfs_path <- system.file("extdata/ggl_gtfs.zip", package = "gtfsio")
gtfs <- import_gtfs(gtfs_path)
names(gtfs)
class(gtfs)
small_gtfs <- gtfs[1:5]
names(small_gtfs)
class(small_gtfs)
small_gtfs <- gtfs[c("shapes", "trips")]
names(small_gtfs)
class(small_gtfs)
Run the code above in your browser using DataLab